Garbo/Garbo.cdr/mac/hypercrd/hc2_x/mb21.sea/MB2.1 Release/background_54790.xml

Extensible Markup Language | 1991-06-01 | 3KB | 14 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>54790</id>
    <filler1>0</filler1>
    <bitmap>BMAP_68654.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3037.css" />
    <name>TOOLS</name>
    <script>-- © 1990,1991 by Bernhard S. Wieser- © April 1991 by Bernhard S. Wieser and Octavian Micro Development- ALL RIGHTS RESERVED.- BE CAREFUL WITH THIS SCRIPT.-on buildput empty into card field "names"put empty into card field "nombres"put 0 into cput number of first card in background "recipes" into xput number of last card in background "recipes" into yput y + 1 into yput "@" into linenowrepeat until x = yput c + 1 into cput field "NAME" of card x into itput it into line c of card field "names"put first char of it into zif z > linenow thenput z into linenowput (c&&return) after card field "nombres"end ifput x + 1 into xset cursor to busyend repeatput (c & " drinks!") into card field numdsend buildfunction proceedanswer "This procedure takes a bit of time.  Proceed?"¬with "YES" or "NO"if it is "YES" then put TRUE into itelse put FALSE into itreturn (it)end proceedon importlock screenput true into doneopen file "import"pop cardrepeat while done is trueset cursor to busydoMenu "New Card"read from file "import" until returnif it is empty thenput false into doneelseput it into  field "NAME"read from file "import" until returnput first word of it into field "GLASS"-- read from file "import" until return -- get the CRput empty into field "INGREDIENTS"put empty into field "INSTRUCTIONS"put empty into field "CONTRIBUTOR"put true into ingrepeat while ing is trueread from file "import" until returnif it is return thenput false into ingelseput it after field "INGREDIENTS"end ifend repeatput true into ingrepeat while ing is trueread from file "import" until returnif it is return thenput false into ingelseput it after field "INSTRUCTIONS"end ifend repeatput true into ingrepeat while ing is trueread from file "import" until returnif it is return thenput false into ingelseput it after field "CONTRIBUTOR"end ifend repeatend ifend repeatclose file "import"unlock screenend importon snortsort by background field "NAME"end snortfunction isLockedglobal statusif status is true thenanswer "MicroBartender is locked." with "No Kidding"end ifreturn statusend isLocked</script>
</background>